home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / Snake.AMOS / Snake.amosSourceCode < prev    next >
AMOS Source Code  |  1997-04-18  |  992b  |  41 lines
  1. Screen Open 0,320,200,16,0
  2. Curs Off : Flash Off : Paper 0 : Cls : Hide 
  3. Double Buffer 
  4. Screen Swap 
  5. B=$110
  6. For A=1 To 15
  7.   Colour A,B+15
  8.   Add B,$110
  9. Next 
  10. Dim P(99)
  11. D=3 : G=1
  12. Bob Update Off 
  13. Autoback 0
  14. For A=1 To 5
  15.   Bob A,Rnd(300),Rnd(180),G*2
  16. Next 
  17. SX=1
  18. Do 
  19.   SXX=Jleft(1)-Jright(1) : SYY=Jup(1)-Jdown(1) : If SXX<>0 Then SX=SXX : SY=0
  20.   If SYY<>0 Then SY=SYY : SX=0
  21.   Add X,SX*(G*2+1),0 To 315 : Add Y,SY*(G*2+1),0 To 195
  22.   P(A)=X : Add A,1,0 To 99 : P(A)=Y : Add A,1,0 To 99
  23.   Bob Clear : B=A : Add B,-2,0 To 98
  24.   For C=1 To D : Bob C+5,P(B),P(B+1),G : Add B,-2,0 To 98 : Next 
  25.   Bob Draw : Screen Swap : Wait Vbl 
  26.   If Bob Col(6,7 To D+5) Then Boom : Exit 
  27.   If Bob Col(6,1 To 5) Then Gosub EAT : D=Min(D+1,50) : Bell D
  28.   G=D/8+1
  29.   If D=50 Then BR=49
  30.   If BR>0 Then Bob Off D+5 : Dec BR : Shoot : Dec D
  31. Loop 
  32. End 
  33. EAT:
  34.   For B=1 To 5
  35.     If Col(B) Then Exit 
  36.   Next 
  37.   Bob B,Rnd(300),Rnd(180),G*2
  38. Return 
  39.   Ink A : Circle 30,30,A : Paint 30,30
  40.   Get Bob A,29-A,29-A To 31+A,31+A
  41.   Cls 0